100 REM******************************** 102 REM* DISKHUELLEN MPS 801 * 104 REM******************************** 106 REM* EIN PROGRAMM ZUR HERSTELLUNG * 108 REM* NEUER DISKETTENTASCHEN UND * 110 REM* AUFKLEBE-ETIKETTEN * 112 REM******************************** 124 REM* JOHANN GUBESCH * 126 REM* HENGTEWEG 12 * 128 REM* 4420 COESFELD * 130 REM* 02541/81472 * 132 REM******************************** 134 GOSUB 160 136 GOSUB 190 138 IF Y=1 THEN GOSUB 500:GOSUB 530:GOSUB 796 140 DIM DB$(144):AX$=" " :DIM NA$(144):XY=0 142 GOSUB 254 144 IF Y=2 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 578:GOSUB 796 146 IF Y=3 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 578:XY=1 148 IF Y=3 THEN GOSUB 254:GOSUB 344 150 IF Y=3 THEN GOSUB 428:GOSUB 500:GOSUB 726:GOSUB 796 152 IF Y=4 THEN GOSUB 344:GOSUB 428:GOSUB 500:GOSUB 726:GOSUB 796 154 IF Y=5 THEN GOSUB 344:GOSUB 500:GOSUB 672:GOSUB 796 156 END 158 REM ---- MODUL RAHMEN ------------- 160 POKE53281,1:POKE53280,1:PRINTCHR$(142) 162 PRINT"[147] ** FLOPPY-BAG 801 ** "; 164 PRINT" FUER MPS 801 UND KOMPATIBLE "; 166 PRINT" VON J.GUBESCH, COESFELD, FEBRUAR 1987 [146]" 168 POKE 646,0:PRINT"[145]"; 170 FOR A=1TO16 172 PRINT"[221] [221]"; 174 NEXT 176 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][178][192][192][192][192][192][192][179]"; 178 PRINT"[221] [221] [221] [221] [221]"; 180 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][177][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][178][177][192][192][192][192][192][192][179]"; 182 PRINT"[221] [221] [221] [221]"; 184 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][189][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]" 186 RETURN 188 REM ---- MODUL AUSWAHLMENUE ------- 190 PRINT:PRINT 192 PRINT "[145][145][145][145] [146]" 194 PRINT "[145] WAEHLEN SIE BITTE DEN GE - " 196 PRINT " WUENSCHTEN AUSDRUCK " 198 PRINT "[145] [146]( 1-5 ) " 200 PRINT " " 202 PRINT"[145][145]" 204 PRINT"1[146]- TASCHE" 206 PRINT"[145]2[146]- TASCHE MIT AUFGEDRUCKTEM DI-" 208 PRINT" RECTORY + ETIKETT" 210 PRINT"[145]3[146]- TASCHE MIT AUFGEDRUCKTEM DI-" 212 PRINT" RECTORY + DIRECTORY FUER DIE " 214 PRINT"[145] RUECKSEITE + 2 ETIKETTEN" 216 PRINT"4[146]- DIRECTORY + ETIKETT" 218 PRINT"[145]5[146]- ETIKETT" 220 GETAN$:IFAN$=""THEN 220 222 IF AN$="1" THEN Y=1:GOSUB 238:GOTO 234 224 IF AN$="2" THEN Y=2:GOSUB 238:GOTO 234 226 IF AN$="3" THEN Y=3:GOSUB 238:GOTO 234 228 IF AN$="4" THEN Y=4:GOSUB 238:GOTO 234 230 IF AN$="5" THEN Y=5:GOSUB 238:GOTO 234 232 GOTO 220 234 RETURN 236 REM ---- MODUL BEDIENERFELD FREI -- 238 PRINT"" 240 PRINT"" 242 FOR T= 1TO 7 244 PRINT" " 246 PRINT"[145] " 248 NEXT 250 PRINT" " 252 RETURN 254 REM ---- MODUL DIRECTORY LESEN ---- 256 PRINT"" :AW$=" " 258 PRINT"";AW$ 260 PRINT"[145]";AW$ 262 PRINT"";AW$ 264 PRINT"[145]";AW$ 266 PRINT"";AW$ 268 PRINT"[145][145][145][145][145] EINEN MOMENT BITTE -" 270 PRINT"" 272 PRINT"[145] ICH LESE DAS DIRECTORY EIN !" 274 IF XY=1 THEN GOSUB 320:GOTO 256 276 I=0:GB=1:CLOSE 15:OPEN 15,8,15:CLOSE 1:OPEN 1,8,0,"$0" 278 INPUT#15,T,K$,O,O:IF T<>0 THEN PRINT"[145][145][145]FLOPPYFEHLER:[146]"; 280 IF T<>0 THEN PRINT" ";K$:PRINT"[146]FLOPPY EIN - DISK REIN " 282 IF T<>0 THEN PRINT "[145] [146]TASTE DRUECKEN " 284 IF T<>0 THEN POKE 198,0:WAIT 198,1:RUN 134 286 GET#1,DA$,DE$ 288 GET#1,DA$,DE$:DB$(I+1)="":GET#1,DA$,DE$ 290 C=0 292 IF DA$<>"" THEN C=ASC(DA$) 294 IF DE$<>"" THEN C=C+ASC(DE$)*256 296 FR$=MID$(STR$(C),2) 298 GET#1,DE$:IF DE$="" THEN ZA=I:GOTO 316 300 IF DE$<>CHR$(34) THEN 298 302 GET#1,DE$:IF DE$<>CHR$(34) THEN DB$(I)=DB$(I)+DE$:GOTO 302 304 GET#1,DE$:IF DE$=CHR$(32) THEN 304 306 DC$="" 308 DC$=DC$+DE$:GET#1,DE$:IF DE$<>"" THEN 308 310 IF GB=1 THEN ID$=LEFT$(DC$,2):GB=0 312 DB$(I)=LEFT$(DB$(I)+AX$,17) 314 I=I+1:GOTO 288 316 CLOSE 1:CLOSE 15 318 RETURN 320 PRINT"" :AW$=" " 322 PRINT"";AW$ 324 PRINT"[145]";AW$ 326 PRINT"";AW$ 328 PRINT"[145]";AW$ 330 PRINT"";AW$ 332 PRINT"[145][145][145][145][145]BITTE DISKETTE WENDEN " 334 PRINT"" 336 PRINT"[145] [146] TASTE  " 338 POKE 198,0:WAIT 198,1:XY=0 340 RETURN 342 REM ---- MODUL DATENEINGABE ------- 344 PRINT"" :AW$=" " 346 PRINT"";AW$ 348 PRINT"[145]";AW$ 350 PRINT"";AW$ 352 PRINT"[145]";AW$ 354 PRINT"";AW$ 356 PRINT"[145][145][145][145][145] BITTE GEBEN SIE FOLGENDE" 358 PRINT" DATEN EIN BZW. UEBERNEHMEN MIT" 360 PRINT"[145] [146]RETURN" 362 CO$=" 64 ":MO$=" 64":FL$="1541":NR$="...." 364 POKE19,1:INPUT"DATUM :[146] TT.MM.JJJJ[157][157][157][157][157][157][157][157][157][157]";TE$:POKE19,0 366 TE$=LEFT$(TE$,10) 368 HE$=LEFT$(DB$(0),16) 370 PRINT"[145]DISK-NAME :[146] ";HE$:POKE19,1:INPUT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";HE$ 372 POKE19,0 374 HE$=LEFT$(HE$,16) 376 PRINT "DISK-NUMMER:[146] ";NR$;:POKE19,1:INPUT"[157][157][157][157]";NR$ 378 POKE19,0 380 NR$=LEFT$(NR$,4 ) 382 PRINT "[145]DISK-ID :[146] ";ID$;:POKE19,1:INPUT"[157][157]";ID$ 384 POKE19,0 386 ID$=LEFT$(ID$,2 ) 388 PRINT "FLOPPY :[146] ";FL$;:POKE19,1:INPUT"[157][157][157][157]";FL$ 390 POKE19,0 392 FL$=LEFT$(FL$,4) 394 PRINT "[145]COMMODORE :[146] ";CO$;:POKE19,1:INPUT"[157][157][157][157]";CO$ 396 POKE19,0 398 CO$=LEFT$(CO$,4) 400 PRINT "MODUS :[146] ";MO$;:POKE19,1:INPUT"[157][157][157]";MO$ 402 POKE19,0 404 MO$=LEFT$(MO$,3) 406 PRINT "STIMMEN ALLE ANGABEN ? (J/N)" 408 GETAN$:IF AN$="" THEN 408 410 IF AN$="J" THEN 418 412 IF AN$="N" THEN PRINT:PRINT"[145][145][145][145] " 414 IFAN$="N" THEN PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]";:GOTO 364 416 GOTO 408 418 PRINT"";TE$;"";HE$;"";ID$;"";NR$;"FLOPPY ";FL$;""; 420 PRINT" COMMODORE ";CO$;"";MO$;"'" 422 GOSUB 238 424 RETURN 426 REM ---- MODUL FILES BEARBEITEN --- 428 PRINT"" :AW$=" " 430 PRINT"";AW$ 432 PRINT"[145]";AW$ 434 PRINT"";AW$ 436 PRINT"[145]";AW$ 438 PRINT"";AW$ 440 PRINT "[145][145][145][145][145][145][145]F1- FILENAME AENDERN" 442 PRINT"F3- FILENAME STREICHEN" 444 PRINT"[145]F5- FILENAME UEBERNEHMEN" 446 PRINT"F7- TRENNUNG EINFUEGEN" 448 PRINT"[145] " 450 X1=1:X=0:T=X 452 IF ZA>39 THEN ZA = 39 454 FOR T=0 TO ZA-2 456 PRINT"";X;" ";LEFT$(DB$(X+X1),17);"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145][145][145]" 458 GETAN$:IF AN$="" THEN 458 460 IF AN$="[135]" THEN NA$(X)=LEFT$(DB$(X+X1),17):GOTO 484 462 IF AN$="[134]" THEN X=X-1:X1=X1+1 464 IF AN$="[134]" AND X<0 THEN X=-1 466 IF AN$="[134]" THEN 484 468 IF AN$="[133]" THEN PRINT"NEUER NAME:[146] .";:POKE19,1 470 IF AN$="[133]" THEN INPUT"[157]";NA$(X):POKE19,0:NA$(X)=LEFT$(NA$(X) ,17) 472 IF AN$="[133]" THEN PRINT "[145][145] " 474 IF AN$="[133]" THEN PRINT"[145][145][145][145][145][145]";:GOTO 484 476 IF AN$="[136]" THEN NA$(X)="================ " 478 IF AN$="[136]" THEN X1=X1-1:T=T-1 480 IF AN$="[136]" THEN GOTO 484 482 GOTO 458 484 X=X+1:IF X=38 THEN T=ZA-2 486 NEXT 488 PRINT " KEINE FILES MEHR VORHANDEN" 490 FOR T=XTO38:NA$(T)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] ":NEXT 492 POKE 198,0:WAIT 198,1 494 GOSUB 238 496 RETURN 498 REM ---- MODUL DRUCKVORBEREITUNG -- 500 PRINT"" :AW$=" " 502 PRINT"";AW$ 504 PRINT"[145]";AW$ 506 PRINT"";AW$ 508 PRINT"[145]";AW$ 510 PRINT"";AW$ 512 PRINT"[145][145][145][145][145][145][145]DRUCKER EINGESCHALTET UND" 514 PRINT"PAPIER RICHTIG EINGESPANNT ?" 516 PRINT"[145](J/N)" 518 GETAN$:IF AN$="" THEN 518 520 IF AN$="J" THEN 524 522 GOTO 518 524 GOSUB 238 526 RETURN 528 REM ---- MODUL DR HUELLE ---------- 530 PRINT"" :AW$=" " 532 PRINT"";AW$ 534 PRINT"[145]";AW$ 536 PRINT"";AW$ 538 PRINT"[145]";AW$ 540 PRINT"";AW$ 542 PRINT"[145][145][145][145][145]AUF GEHT'S -" 544 PRINT"" 546 PRINT"[145]JETZT WIRD GEDRUCKT !" 548 PRINT"DISKETTEN-TASCHE" 550 OPEN4,4 552 PRINT#4,"[213]----------------------------------------------------------------[201]" 554 FOR T=1TO22 556 PRINT#4,"[165] : : [167]" 558 NEXT 560 PRINT#4,"[202]----[201]......................................................[213]----[203]" 562 FOR T=1TO28 564 PRINT#4," [221] [221]" 566 NEXT 568 PRINT#4," [202]------------------------------------------------------[203]" 570 CLOSE 4 572 GOSUB 238 574 RETURN 576 REM ---- MODUL DR HUELLE+DIR+ETI -- 578 PRINT"":AW$=" " 580 PRINT"";AW$ 582 PRINT"[145]";AW$ 584 PRINT"";AW$ 586 PRINT"[145]";AW$ 588 PRINT"";AW$ 590 PRINT"[145][145][145][145][145]AUF GEHT'S -" 592 PRINT"" 594 PRINT"[145]JETZT WIRD GEDRUCKT !" 596 PRINT"DISKETTEN-TASCHE MIT AUFGEDRUCKTEM" 598 PRINT"DIRECTORY UND AUFKLEBEETIKETT" 600 CLOSE 1:OPEN 1,4 602 PRINT#1,CHR$(145) 604 PRINT#1,"[213]----------------------------------------------------------------[201] 606 [152]1,"FN : : THEN" 608 [152]1,"FN : "[199](14);HE$;[199](15); 610 [152]1," DISK-NR:";[199](14);NR$;[199](15);" : THEN" 612 [152]1,"FN : ";:[129] I[178]1 [164] 52:[152]1,"LEN";:[130]:[152]1," : THEN" 614 [152]1,"FN : "NA$(0);" ";NA$(13);" ";NA$(26); ": THEN" 616 [152]1,"FN : "NA$(1);" ";NA$(14);" ";NA$(27); ": THEN" 618 [152]1,"FN : "NA$(2);" ";NA$(15);" ";NA$(28); ": THEN" 620 [152]1,"FN : "NA$(3);" ";NA$(16);" ";NA$(29); ": THEN" 622 [152]1,"FN : "NA$(4);" ";NA$(17);" ";NA$(30); ": THEN" 624 [152]1,"FN : "NA$(5);" ";NA$(18);" ";NA$(31); ": THEN" 626 [152]1,"FN : "NA$(6);" ";NA$(19);" ";NA$(32); ": THEN" 628 [152]1,"FN : "NA$(7);" ";NA$(20);" ";NA$(33); ": THEN" 630 [152]1,"FN : "NA$(8);" ";NA$(21);" ";NA$(34); ": THEN" 632 [152]1,"FN : "NA$(9);" ";NA$(22);" ";NA$(35); ": THEN" 634 [152]1,"FN : "NA$(10);" ";NA$(23);" ";NA$(36); ": THEN" 636 [152]1,"FN : "NA$(11);" ";NA$(24);" ";NA$(37); ": THEN" 638 [152]1,"FN : "NA$(12);" ";NA$(25);" ";NA$(38); ": THEN" 640 [152]1,"FN : ";:[129] I[178]1 [164] 52:[152]1,"LEN";:[130]:[152]1," : THEN" 642 FR$[178][200](FR$[170]" ",3) 644 [152]1,"FN : STAND:"TE$" "FR$" BLOCKS FREE : THEN" 646 [152]1,"FN : : THEN 648 PRINT#1,"[165] : : [167] 650 [152]1,"FN : : THEN 652 PRINT#1,"[165] : : [167] 654 [152]1,"MID$----RIGHT$......................................................(null)----(null) 656 FOR T=1TO28 658 PRINT#1," [221] [221]" 660 NEXT 662 PRINT#1," [202]------------------------------------------------------[203]" 664 PRINTCHR$(10)CHR$(10)CHR$(10) 666 GOSUB 696: 668 RETURN 670 REM ---- MODUL DR ETIKETT --------- 672 PRINT"":AW$=" " 674 PRINT"";AW$ 676 PRINT"[145]";AW$ 678 PRINT"";AW$ 680 PRINT"[145]";AW$ 682 PRINT"";AW$ 684 PRINT"[145][145][145][145][145]AUF GEHT'S -" 686 PRINT"" 688 PRINT"[145]JETZT WIRD GEDRUCKT !" 690 PRINT"DISKETTEN-ETIKETT" 692 CLOSE 1:OPEN 1,4 694 PRINT#1,CHR$(145) 696 PRINT#1,CHR$(15)"[213][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][178][192][192][201]"CHR$(8) 698 IFNR$=""THENNR$=" " 700 PRINT#1,CHR$(15)"[221]"CHR$(14)NR$CHR$(15)"[221] [221]"ID$"[221]"CHR$(8) 702 PRINT#1,CHR$(15)"[171][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][177][192][192][179]"CHR$(8) 704 PRINT#1,CHR$(15)"[221] "HE$" [221]"CHR$(8) 706 PRINT#1,CHR$(15)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"CHR$(8) 708 CO$="[195]OMMODORE "+CO$ 710 PRINT#1,CHR$(15)"[221] "CHR$(17)CO$CHR$(15)" [221]"CHR$(8) 712 PRINT#1,CHR$(15)"[171][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"CHR$(8) 714 MO$=MO$+"'ER [205]ODUS" 716 PRINT#1,CHR$(15)"[221]"FL$"[221]"CHR$(17)MO$" [221]"CHR$(8) 718 PRINT#1,CHR$(15)"[202][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"CHR$(15) 720 GOSUB 238 722 RETURN 724 REM ---- MODUL DR DIR+ET ---------- 726 PRINT"":AW$=" " 728 PRINT"";AW$ 730 PRINT"[145]";AW$ 732 PRINT"";AW$ 734 PRINT"[145]";AW$ 736 PRINT"";AW$ 738 PRINT"[145][145][145][145][145]AUF GEHT'S -" 740 PRINT"" 742 PRINT"[145]JETZT WIRD GEDRUCKT !" 744 PRINT"DIRECTORY + AUFKLEBEETIKETT" 746 CLOSE 1:OPEN 1,4 748 PRINT#1,CHR$(145) 750 PRINT#1," "CHR$(14);HE$;CHR$(15);" DISK-NR:";CHR$(14);NR$;CHR$(15) 752 PRINT#1," ";:FOR I=1 TO 52:PRINT#1,"[195]";:NEXT:PRINT#1 754 PRINT#1," "NA$(0);" ";NA$(13);" ";NA$(26) 756 PRINT#1," "NA$(1);" ";NA$(14);" ";NA$(27) 758 PRINT#1," "NA$(2);" ";NA$(15);" ";NA$(28) 760 PRINT#1," "NA$(3);" ";NA$(16);" ";NA$(29) 762 PRINT#1," "NA$(4);" ";NA$(17);" ";NA$(30) 764 PRINT#1," "NA$(5);" ";NA$(18);" ";NA$(31) 766 PRINT#1," "NA$(6);" ";NA$(19);" ";NA$(32) 768 PRINT#1," "NA$(7);" ";NA$(20);" ";NA$(33) 770 PRINT#1," "NA$(8);" ";NA$(21);" ";NA$(34) 772 PRINT#1," "NA$(9);" ";NA$(22);" ";NA$(35) 774 PRINT#1," "NA$(10);" ";NA$(23);" ";NA$(36) 776 PRINT#1," "NA$(11);" ";NA$(24);" ";NA$(37) 778 PRINT#1," "NA$(12);" ";NA$(25);" ";NA$(38) 780 PRINT#1," ";:FOR I=1 TO 52:PRINT#1,"[195]";:NEXT:PRINT#1 782 PRINT#1," STAND:"TE$" ";FR$;" BLOCKS FREE" 784 PRINT#1:PRINT#1:CLOSE 1 786 CLOSE 1:OPEN 1,4 788 PRINT#1,CHR$(145) 790 GOSUB 696 792 RETURN 794 REM ---- MODUL NOCHMAL ------------ 796 PRINT"":AW$=" " 798 PRINT"";AW$ 800 PRINT"[145]";AW$ 802 PRINT"";AW$ 804 PRINT"[145]";AW$ 806 PRINT"";AW$ 808 PRINT"[145][145][145][145][145]WOLLEN SIE NOCH MEHR DRUCKEN ?" 810 PRINT"" 812 PRINT"[145](J/N)" 814 GETAN$:IF AN$="" THEN 814 816 IF AN$="J" THEN RUN 134 818 IF AN$="N" THEN PRINT"HOFFENTLICH SIND DIE AUSDRUCKE" 820 IF AN$="N" THEN PRINT"ZU IHRER ZUFRIEDENHEIT AUS-" 822 IF AN$="N" THEN PRINT"AUSGEFALLEN !!" 824 IF AN$="N" THEN PRINT"[145]TSCHUESS - " 826 IF AN$="N" THEN PRINT"BIS BALD !!" 828 IF AN$="N" THEN POKE198,0:WAIT198,1:PRINT"[147]":RETURN